
    1 GO SUB 2:GO SUB 3:GO SUB 4:STOP

    2 LET c=NOT PI:LET d=c:LET a=c:LET b=c:LET i=c:LET j=c:LET e=c:LET f=c:DIM b$(VAL"5",VAL"4"):LET b$(VAL"1")="{J}{J}{L}{I}":LET b$(VAL"2")="{J}{J}{M}{K}":LET b$(VAL"3")="{K}{I}{N}{N}":LET b$(VAL"4")="{M}{L}{N}{N}":LET b$(VAL"5")="{09}{09}{09}{09}":LET u=c:DIM t$(VAL"8",VAL"3"):LET t$(VAL"1") = "{ink 5}{G}":LET t$(VAL"2") = "{ink 5}{H}":LET t$(VAL"3") = "{ink 5}{E}":LET t$(VAL"4") = "{ink 5}{F}":LET t$(VAL"5") = "{ink 5}{O}":LET t$(VAL"6") = "{ink 5}{O}":LET t$(VAL"7") = "{ink 5}{O}":LET t$(VAL"8") = "{ink 5}{O}":DIM h$(VAL"4",VAL"5"):LET h$(VAL"1") = "{ink 6}{BRIGHT 1}{C}":LET h$(VAL"2") = "{ink 6}{BRIGHT 1}{D}":LET h$(VAL"3") = "{ink 6}{BRIGHT 1}{A}":LET h$(VAL"4") = "{ink 6}{BRIGHT 1}{B}":DIM m$(VAL"4",VAL"5"):LET m$(VAL"1") = "{ink 6}{BRIGHT 1}{T}":LET m$(VAL"2") = "{ink 6}{BRIGHT 1}{U}":LET m$(VAL"3") = "{ink 6}{BRIGHT 1}{R}":LET m$(VAL"4") = "{ink 6}{BRIGHT 1}{S}":LET v=c:LET q=c:LET bx=c:LET by=c:FOR n=SGN PI TO NOT PI:NEXT n:LET a$="{bright 1}{ink 2}{P}":LET w=6:LET o=200:LET h=1:LET l=60:DIM t(VAL"64",VAL"2"):DIM k(VAL"7"):DIM s$(VAL"12",VAL"7"):DIM x(VAL"4"):LET x(VAL"1")=-SGN PI:LET x(VAL"2")=SGN PI:LET x(VAL"3")=NOT PI:LET x(VAL"4")=NOT PI:DIM y(VAL"4"):LET y(VAL"1")=NOT PI:LET y(VAL"2")=NOT PI:LET y(VAL"3")=-SGN PI:LET y(VAL"4")=SGN PI:LET e1=NOT PI:LET e2=NOT PI:LET y=NOT PI:LET x=VAL"3":LET t=NOT PI:LET r=5:LET g1=1:LET g2=VAL"3":LET g3=SGN PI:LET g4=SGN PI:LET z$="":RETURN
    3 LET s$(VAL"1") = "{ink 0}{paper 1}{inverse 1}{5F}":LET s$(VAL"2") = "{ink 0}{paper 1}{inverse 1}{5B}":LET s$(VAL"3") = "{ink 0}{paper 2}{inverse 1}{5F}":LET s$(VAL"4") = "{ink 7}{paper 2}{inverse 1}{5C}":LET s$(VAL"5") = "{ink 0}{paper 3}{inverse 1}{5F}":LET s$(VAL"6") = "{ink 0}{paper 3}{inverse 1}{5B}":LET s$(VAL"7") = "{ink 0}{paper 4}{inverse 1}{5F}":LET s$(VAL"8") = "{ink 0}{paper 4}{inverse 1}a":LET s$(VAL"9") = "{ink 0}{paper 5}{inverse 1}{5F}":LET s$(VAL"10") = "{ink 0}{paper 5}{inverse 1}{5E}":LET s$(VAL"11") = "{ink 0}{paper 6}{inverse 1}b":LET s$(VAL"12") = "{ink 6}{paper 0}{bright 1}{7C}":LET z=VAL"12":RETURN

    4 RESTORE 4:DIM w$(16,2):FOR n=1 TO 16:READ z$:LET w$(n)=z$:NEXT n:DATA "PA","PE","PI","PO","TA","TO","RA","LA","LE","GA","GO","GU","SA","MA","NO","ZO":RETURN




           

